﻿Imports DevComponents.DotNetBar

Module Mensajeria
    Sub GenerarNotificacion(ByVal Texto As String, ByVal Duracion As Integer, ByVal colores As eToastGlowColor, ByVal Form As Form)
        Try
            Dim glow As eToastGlowColor = colores
            Dim Poe As eToastPosition
            If Form.WindowState = FormWindowState.Maximized Then
                Poe = eToastPosition.MiddleCenter
            Else
                Poe = eToastPosition.BottomCenter
            End If

            ToastNotification.Show(Form, Texto, Nothing, Duracion * 1000, glow, Poe)
        Catch ex As Exception
            If colores = eToastGlowColor.Red Then
                Citra_MensajeSistema(Texto, RequierenAntencionTipos.OcurrioError)
            Else
                Citra_MensajeSistema(Texto, RequierenAntencionTipos.MuestraStatus)
            End If
        End Try



    End Sub
End Module
